Set the border style of the print window so that it has no border,max or min
buttons, control box etc.h
Border_style% = 268435456h
Send the Print job to be printed to a window
PEOutputToWindow Error #:
Output to Window was successful.
PEStartPrintJob Error #:
Printing to Window was successful.
Dim C1 As New Child
Crystal MDIChild -
Set the border style of the print window so that it has no border,max or min
buttons, control box etc.h
Border_style% = 268435456h
Send the Print job to be printed to a window
PEOutputToWindow Error #:
Output to Window was successful.
PEStartPrintJob Error #:
Printing to Window was successful.
Output to printerD
Printer
Need to trap if user hits cancel in Commondialogue somehow
PEOutputToPrinter Error #:
Output to printer Successful.
PEStartPrintJob Error #:
Printing to Printer was successful.
Note: File format will be Character Seperated with a string delimiter of a single quote and a field delimiter of a comma. To output to any other file formats please refer to the documentation and modify the code manually. Otherwise it is recommended that the Export option be used.
Output to File
Dim Options As PEPrintFileOptionso
Please Enter Report File Name with full path:
Report File Name
FileType = PE_FT_TABSEPERATED
Initialize size of structuree
We can't output to the file, unless it does not exist. Thereforee
Check for the existence of the file. If it does exist check with
the user to see if we can erase it.
already exits. OK to overwrite?
The user said yes
Handle error
PEOutputToFile Error #:
Output to file Successful.
PEStartPrintJob Error #:
Printing to File was successful.
Handle error
PEOutputToFile Error #:
Output to file Successful.
Job not open
PEGetExportOptions gets complete information about format and
destination for the exportm
The ExportOptions must be passed to PEExportTo before calling PEStartPrintJob
Whenever you call PEExportTo, you must ensure that the format
and dll names have been filled in
You can do this by assigning specific names (as InitExportOptions does)
or by calling PEGetExportOptionsc
If the ExportOptions structure doesn't contain all information needed
by a format or destination dll, it will ask for the information
when you call PEStartPrintJob
An ExportOptions structure filled in by PEGetExportOptions always has
all the information needed by both dll'sP
PEExportTo Error #:
Cannot print - no export options
PEStartPrintJob Error #:
Export was successful.
Command3_Click
Command4_Click
Command5_Click
Winhelp c:\crw\crw.hlp
RedPoint cannot find the Crystal Help file in C:\CRW directory
exists
What follows is code for the exists function
This function returns True if a given file exists, False otherwise
Try to open file for input. If successful, file exists
(.txt)